Aminet 24/Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso/Aminet/text/edit/GED_Hexedit.lha/GED_Hexedit/hex/english/deletebyte.ged

Text File | 1998-01-02 | 3KB | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;'REQUEST Body="Do you really want to delete a byte?|Program files cannot be used anymore!" Title="Attention" Button="OK|!Cancel"';if Result=0 then;do;'UNLOCK';exit;end;'QUERY Name=Column Var=Spalte';'QUERY Name=Code Var=Zeichen';if Spalte<11|Spalte>45|Zeichen=32 then;do;'REQUEST Problem="The cursor must be in the hex area at a byte"';'UNLOCK';exit;end;'SET Name=Insert Value=False';'QUERY Name=Line Var=Zeile';'QUERY Name=Lines Var=GesZeilen';'GOTO Column=1 Line='||GesZeilen;'QUERY Name=Buffer Var=Inhalt';Zeile1=compress(substr(Inhalt,11,35));Zeile2=substr(Inhalt,48);Start=((Spalte-11)-((Spalte-11)%9))%2;Zeile1x=left(Zeile1,2);Zeile2x=left(Zeile2,1);if Zeile~=GesZeilen then;do;if length(Zeile2)=1 then;do;'DELETE Line';'GOTO Column=1';end;else;do;Inhalt=left(Inhalt,length(Inhalt)-1);Inhalt=overlay(substr(Zeile1,3,8),Inhalt,11);Inhalt=overlay(substr(Zeile1,11,8),Inhalt,20);Inhalt=overlay(substr(Zeile1,19,8),Inhalt,29);Inhalt=overlay(substr(Zeile1,27,8),Inhalt,38);Inhalt=overlay(substr(Zeile2,2,15),Inhalt,48);'FIX Var=Inhalt';'TEXT T="'||Inhalt||'"';'DEL';'GOTO Column=1';'UP';end;if Zeile<GesZeilen-1 then;do;do i=GesZeilen-1 to Zeile+1 by-1;'QUERY Name=Buffer Var=Inhalt';Zeile1=compress(substr(Inhalt,11,35));Zeile2=substr(Inhalt,48);Inhalt=overlay(substr(Zeile1,3,8),Inhalt,11);Inhalt=overlay(substr(Zeile1,11,8),Inhalt,20);Inhalt=overlay(substr(Zeile1,19,8),Inhalt,29);Inhalt=overlay(substr(Zeile1,27,6),Inhalt,38);Inhalt=overlay(Zeile1x,Inhalt,44);Inhalt=overlay(substr(Zeile2,2,15),Inhalt,48);Inhalt=overlay(Zeile2x,Inhalt,63);'FIX Var=Inhalt';'TEXT stay T="'||Inhalt||'"';Zeile1x=left(Zeile1,2);Zeile2x=left(Zeile2,1);'UP';end;end;end;'QUERY Name=Buffer Var=Inhalt';Zeile1=compress(substr(Inhalt,11,35));Zeile2=substr(Inhalt,48);if Zeile=GesZeilen then;do;Zeile1x="";Zeile2x="";end;if Start>0 then;do;if Start<15 then;do;Zeile1=left(Zeile1,2*Start)||substr(Zeile1,2*Start+3,30-2*Start)||Zeile1x;Zeile2=left(Zeile2,Start)||substr(Zeile2,Start+2,15-Start)||Zeile2x;end;else;do;Zeile1=left(Zeile1,30)||Zeile1x;Zeile2=left(Zeile2,15)||Zeile2x;end;end;else;do;Zeile1=substr(Zeile1,3,30)||Zeile1x;Zeile2=substr(Zeile2,2,15)||Zeile2x;end;if Zeile=GesZeilen then;do;Zeile1=Zeile1||"  ";Inhalt=left(Inhalt,length(Inhalt)-1);end;Inhalt=overlay(substr(Zeile1,1,8),Inhalt,11);Inhalt=overlay(substr(Zeile1,9,8),Inhalt,20);Inhalt=overlay(substr(Zeile1,17,8),Inhalt,29);Inhalt=overlay(substr(Zeile1,25,8),Inhalt,38);Inhalt=overlay(Zeile2,Inhalt,48);'FIX Var=Inhalt';if Zeile<GesZeilen then;do;'TEXT stay T="'||Inhalt||'"';end;else;do;'TEXT T="'||Inhalt||'"';'DEL';end;'GOTO Line='||Zeile||' Column='||Spalte;if Zeile=GesZeilen&left(Zeile1,1)=" " then;do;'DELETE Line';end;'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit